home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / graphics / divers.dem < prev    next >
Text File  |  1999-09-16  |  383b  |  23 lines
  1. mode(-1)
  2. oldln=lines()
  3. lines(0)
  4.  
  5. deff('[]=xdemo(info,str)',['x_message([info;str]);xbasc();';
  6.                            'execstr(str)']);
  7. xset("default");
  8.  
  9. exec('SCI/demos/graphics/divers-1.dem');
  10.  
  11. nn=prod(size(str_l))
  12. while %t then
  13.   num=x_choose(string(1:nn)','Choose a demo    ');
  14.   if num=0 then 
  15.      lines(oldln(1))
  16.      return
  17.   else
  18.      xdemo(" ",str_l(num));
  19.   end,
  20. end
  21.  
  22.  
  23.